home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / compuserve-file-archive / 19 Adventure Games / ATTACK.BIN (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  4.5 KB  |  143 lines
  1. 1 PRINT"[147]"
  2. 2 POKE 53281,6
  3. 4 POKE 53280,6
  4. 5 POKE 646,0
  5. 10 PRINT"               ATTACK SUB"
  6. 11 PRINT"           BY: DAVID BRESSLER"
  7. 12 PRINT"                  1989"
  8. 13 PRINT""
  9. 14 PRINT"THIS GAME IS A SIMULATION OF MODERN     SUBMARINE WARFARE."
  10. 15 PRINT"YOU ARE THE CAPTAIN OF A LOS ANGLES     CLASS SUBMARINE."
  11. 16 PRINT"YOUR SHIP CARRIES ONLY SIX TORPEDOS AND FOUR NOISE MAKERS"
  12. 17 PRINT"THE OBJECT OF THE GAME IS TO SINK ALL"
  13. 18 PRINT"ENEMY SHIPS WITH A TORPEDO AND TO AVOID THEIR TORPEDOS WITH NOISE"
  14. 19 PRINT"MAKERS OR TRYING TO RUN FROM THEIR      TORPEDOS."
  15. 20 FOR X=1 TO 10000:NEXT X
  16. 25 PRINT"[147]"
  17. 30 PRINT"WHILE ON A ROUTINE PATROL IN THE BARENTS SEA, YOUR SONAR OPERATOR"
  18. 31 PRINT"PICKS UP FOUR UNKNOWN CONTACTS. ONE TO  THE NORTH,SOUTH,EAST, OR WEST."
  19. 32 PRINT" DO YOU:
  20. 33 [153] "(1) GO EAST"
  21. 34 [153]"(2) GO WEST"
  22. 35 [153]"(3) GO NORTH"
  23. 36 [153]"(4) GO SOUTH"
  24. 37 [153]"(5) WAIT WERE YOU ARE"
  25. 38 [153]"PLEASE ENTER CHOICE (1,2,3,4,OR5)":[133] A
  26. 40 [139] A[178]1 [167] [137] 70:[130] A
  27. 55 [139] A[178]2 [167] [137] 70:[130] A
  28. 60 [139] A[178]3 [167] [137] 80:[130] A
  29. 65 [139] A[178]4 [167] [137] 100:[130] A
  30. 66 [139] A[178]5 [167] [137] 130:[130] A
  31. 70 [153]"AS YOU PROCEED YOUR SONAR OPERATOR SAYS THIS SHIP IS AN ENEMY."
  32. 71 [153]"DO YOU:"
  33. 72 [153]"(1) FIRE TORPEDO"
  34. 73 [153]"(2) FOLLOW QUIETLY"
  35. 74 [153]"(3) WAIT WHERE YOU ARE"
  36. 75 [153]"(4) RETREAT"
  37. 76 [133] B
  38. 77 [139] B[178]1 [167] [137]115:[130] B
  39. 78 [139] B[178]2 [167] [137]141:[130] B
  40. 79 [139] B[178]3 [167] [137]150:[130] B
  41. 80 [139] B[178]4 [167] [137]164:[130] B
  42. 85 [153]"AS YOU MOVE TOWARDS THE NORTH YOUR SONAR OPERATOR PICKS UP A TORPEDO"
  43. 90 [153]"HEADING AT YOU!"
  44. 91 [153]"DO YOU:"
  45. 92 [153]"(1) LAUNCH NOISE MAKER"
  46. 93 [153]"(2) RUN FROM IT"
  47. 94 [153]"(3) DIVE"
  48. 95 [153]"(4) SURFACE"
  49. 96 [133] C
  50. 97 [139] C[178]1[167] [137]170:[130] C
  51. 98 [139] C[178]2[167] [137]130:[130] C
  52. 99 [139] C[178]3 [167] [137] 170:[130] C
  53. 100 [139] C[178]4 [167] [137] 130:[130] C
  54. 101 [153]"WHEN YOU ARRIVE YOU FIND NOTHING."
  55. 102 [153]"DO YOU:"
  56. 103 [153]"(1) GO BACK TO WHERE YOU WERE"
  57. 104 [153]"(2) WAIT WHERE YOU ARE"
  58. 105 [133] D
  59. 106 [139] D[178]1 [167] [137] 30:[130] D
  60. 107 [139] D[178]2 [167] [137]178:[130]D
  61. 114 [133] D
  62. 115 [153]"YOU YELL OUT FIRE ONE AND A TORPEDO     SPEEDS TOWARDS ITS TARGET."
  63. 116 [153]"IT IS JUST WIDE AND IT MISSES. YOU NOW  ONLY HAVE FIVE TORPEDOS LEFT."
  64. 117 [153]"DO YOU:"
  65. 118 [153]"(1) MOVE CLOSER"
  66. 119 [153]"(2) FIRE AGAIN"
  67. 120 [133] B
  68. 128 [139] B[178]1 [167] [137]185:[130] B
  69. 129 [139] B[178]2 [167] [137]195:[130] B
  70. 130 [153]"SUDDENLY YOUR SONAR OPERATOR PICKS UP A TORPEDO. BEFORE YOU CAN REACT
  71. 131 PRINT"IT DETONATES BESIDE YOUR SUB DESTOYING  IT."
  72. 132 PRINT"                GAME OVER"
  73. 133 END
  74. 141 PRINT"AFTER A WHILE IT IS ONLY A VERY LITTLE  DISTANCE AWAY."
  75. 142 PRINT"DO YOU:":PRINT"(1) FIRE TORPEDO":PRINT"(2) BACK OFF A LITTLE"
  76. 143 PRINT"(3) WAIT TO SEE WHAT HAPPENS"
  77. 144 INPUT A
  78. 145 IF A=1 THENGOTO201:NEXTA
  79. 146 IFA=2THENGOTO130:NEXTA
  80. 147 IF A=3 THEN GOTO130:NEXT A
  81. 150 PRINT"AS YOU WAIT THE SHIP MOVES  FARTHER AND FARTHER AWAY":PRINT"DO YOU:"
  82. 160 PRINT"(1) CHASE IT":PRINT"(2) GO BACK TO FIRST AREA"
  83. 161 INPUT C
  84. 162 IFC=1 THEN GOTO130:NEXT C
  85. 163 IF C=2THEN GOTO 30:NEXT C
  86. 164 PRINT"AS YOU RETREAT THE SHIP CHASES YOU AND  DROPS A DEPTH CHARGE ON YOU."
  87. 165 PRINT"                GAME OVER"
  88. 166 END
  89. 170 PRINT"YOU JUST AVOID THE TORPEDO.NOW YOU CAN  MAKE THE OFFENSIVE MOVE."
  90. 171 PRINT"DO YOU:":PRINT"(1) FIRE TORPEDO":PRINT"(2) CHASE CONTACT"
  91. 172 PRINT"(3) TRY TO IDENTIFY CONTACT"
  92. 173 INPUT D
  93. 174 IFD=1THEN GOTO203:NEXT D
  94. 175 IFD=2THEN GOTO206:NEXT D
  95. 176 IFD=3THEN GOTO209:NEXT D
  96. 178 PRINT"NOTHING SHOWS UP AFTER A WHILE YOU GO   BACK TO THE ORIGNAL AREA."
  97. 179 FOR X=1 TO 1000:NEXT X
  98. 180 GOTO 30
  99. 185 PRINT"YOU ARE VERY CLOSE TO THE ENEMY SHIP    NOW.":PRINT"DO YOU:"
  100. 186 PRINT"(1) FIRE TORPEDO":PRINT"(2) RETREAT"
  101. 187 INPUT A
  102. 189 IF A=1 THEN GOTO195:NEXT A
  103. 190 IF A=2 THEN GOTO164:NEXT A
  104. 195 PRINT"YOUR SECOND TORPEDO RUNS STRAIGHT AND   TRUE. IT HITS THE SHIP!"
  105. 196 PRINT"YOU GOT ONE. NOW MOVE TO THE NEXT       CONTACT."
  106. 197 PRINT"JUST A REMINDER YOU ONLY HAVE FOUR      TORPEDOS LEFT."
  107. 198 FORX=1TO 5000:NEXT X
  108. 199 PRINT"[147]"
  109. 200 GOTO 80
  110. 201 PRINT"YOUR TORPEDO STRIKES FULL FORCE. IT BLOWS A HOLE IN THE SHIP SINKING IT
  111. 202 [153]"YOU SHOULD FIND A NEW CONTACT.":[129] X[178]1[164]5000:[130] X:[153]"LOAD":[137] 80
  112. 203 [153]"YOUR TORPEDO MISSES,BUT NOT ALL IS LOST.THE ENEMY SUB FIRES AND HITS YOU."
  113. 204 [153]"                GAME OVER"
  114. 205 [128]
  115. 206 [153]"AS YOU BRING YOUR ENGINES TO FULL SPEED, YOUR SONAR OPERATOR CRIES"
  116. 207 [153]"MINES AHEAD! YOU HIT THEM FULL FORCE":[153]"                GAME OVER"
  117. 208 [128]
  118. 209 [153]"YOU NOW KNOW THE SHIP IS A TYPHOON CLASS,THE LARGEST IN THE WORLD"
  119. 210 [153]"DO YOU:"
  120. 211 [153]"(1) CLOSE IN SILENTLY"
  121. 212 [153]"(2) FIRE TORPEDO"
  122. 213 [133] N
  123. 214 [139] N[178]1 [167] [137] 216:[130] N
  124. 215 [139] N[178]2 [167] [137] 203:[130] N
  125. 216 [153]"YOU SILENTLY SNEAK UP TO THE TYPHOON.":[153]"DO YOU:"
  126. 217 [153]"(1) FIRE TORPEDO":[153]"(2) WAIT TO SEE WHAT HAPPENS"
  127. 218 [133] Z
  128. 219 [139]Z[178]1[167] [137] 221:[130] Z
  129. 220 [139]Z[178]2[167] [137] 130:[130] Z
  130. 221 [153]"YOUR TORPEDO STRIKES THE PORT SIDE OF   THE TYPHOON, SINKING IT!"
  131. 222 [153]"HAVE YOU SUNK ANY OTHER CONTACTS?"
  132. 223 [153]"(1) YES"
  133. 224 [153]"(2) NO"
  134. 225 [133] C
  135. 226 [139] C[178]1[167] [137] 230
  136. 227 [139] C[178]2 [167] [137] 70
  137. 230 [153]"****************YOU WIN*****************"
  138. 237 [153]"DO YOU WANT TO TRY AGAIN?"
  139. 238 [153]"(1) YES":[153]"(2) NO":[133] F
  140. 239 [139] F[178]1 [167] [137] 25:[130] F:[139] F[178]2 [167] [137] 255:[130] F
  141. 255 [153]"THANKS FOR PLAYING"
  142. 260 [128]
  143.